From: Juri Linkov <juri@jurta.org>
Date: Sat, 16 Feb 2008 23:17:51 +0000 (+0000)
Subject: (after-init-time): New variable.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~24038
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5ab0e67e804a4b2f8ba2775ac93d5f65f7307759;p=emacs.git

(after-init-time): New variable.
(command-line): Set `after-init-time' to the current time.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 1b420436b52..56101f3da28 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -197,6 +197,9 @@ an error in one of these functions will invoke the debugger.")
 (defvar before-init-time nil
   "Value of `current-time' before Emacs begins initialization.")
 
+(defvar after-init-time nil
+  "Value of `current-time' after loading the init files.")
+
 (defvar emacs-startup-hook nil
   "Normal hook run after loading init files and handling the command line.")
 
@@ -1097,6 +1100,7 @@ opening the first frame (e.g. open a connection to an X server).")
 		 (eq face-ignored-fonts old-face-ignored-fonts))
       (clear-face-cache)))
 
+  (setq after-init-time (current-time))
   (run-hooks 'after-init-hook)
 
   ;; Decode all default-directory.